home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / COMMUNIC / MRUN211.ZIP / MRUN211.WAS < prev    next >
Text File  |  1993-05-01  |  34KB  |  1,042 lines
  1. ;MailRun v2.11:  Automated BBS Communications
  2. ;1992-1993 Gerald P. Sully, all rights reserved.
  3.  
  4.  
  5. #comment
  6. **************************************************************************
  7. **************************************************************************
  8. * 
  9. * The source code for MailRun is contained in 9 separate files: 
  10. * MRUN211.WAS (this file), MRUN211.H (a header file), and files 
  11. * named MRUN211?.WAS, where ? is a letter A through G.  MailRun
  12. * also requires the file MRUNICON.DLL in order to display the 
  13. * tool bar.
  14. * 
  15. * MRUN211.WAS is the script from which the other script files
  16. * are run.  It performs a brief initialization to find the
  17. * location of its support files, then chains to MRUN211A.WAS,
  18. * which is the principle engine of MailRun.  It will also 
  19. * perform an install routine if it finds that there is no
  20. * current MAILRUN.INI file.
  21. * 
  22. * The key files of MailRun are the *.MRN files.  These
  23. * store configuration information and control what tasks
  24. * will be performed on each BBS.  The user interface is
  25. * designed to provide a convenient way to edit these files
  26. * and display their contents.  The files are standard INI
  27. * files, and so may also be edited by hand.  The comm engine,
  28. * contained in MRUN211G.WAS, reads the currently loaded *.MRN
  29. * file, calls each BBS and executes each pending task.
  30. * 
  31. **************************************************************************
  32. **************************************************************************
  33. #endcomment
  34.  
  35.  
  36. #define IniFile 0
  37.  
  38. string MailRunIni, MailRunList, MailRunTrunc, MailRun, OldIni
  39. string MailRunDir, MailDir, ReplyDir, DownloadDir, UploadDir, TempDir
  40. string DialAttempts, DialTimeout, DialPause, IdleTimeout, SavePackets
  41. string Archiver, QWKReader, LogViewer
  42. integer LogRun, AppendLog, AnsiInLog, NewfileFilter, HelpPage
  43. float Version
  44.  
  45.  
  46. #comment
  47. *********************************************************************
  48. * 
  49. * MAIN()
  50. * 
  51. * Calls makefullname(), checkdir(), makeini(), gettempdir(),
  52. * delspec(), changesettings(), movedir(), updatemrn()
  53. * 
  54. * Executes MRUN211A.WAX
  55. * 
  56. * Checks for existence of MAILRUN.INI file, then chains
  57. * to the main body of the script.
  58. * 
  59. *********************************************************************
  60. #endcomment
  61.  
  62. proc main
  63. string MRunMain, temp, MailRunHelp
  64.     MailRunHelp = makefullname($PWTASKPATH, "mailrun.hlp")
  65.     if isfile MailRunHelp
  66.         set aspect helpfile "mailrun.hlp"
  67.     endif
  68.  
  69.    ;Create the temporary directory
  70.    gettempdir()
  71.    if !(checkdir(TempDir, ""))
  72.       halt
  73.    endif
  74.    
  75.    MailRunIni = makefullname($WINPATH, "MAILRUN.INI")
  76.    profilerd MailRunIni "MailRun" "Version" temp
  77.    atof temp Version
  78.    if Version != 2.11
  79.       ;if there is no .INI file for version 2.11, run install procedure
  80.         fetch aspect scriptpath temp
  81.        temp = makefullname(temp, "mailrun.hlp")
  82.        if not strcmpi MailRunHelp temp
  83.            copyfile temp MailRunHelp
  84.            delfile temp
  85.         endif
  86.         set aspect helpfile "mailrun.hlp"
  87.       makeini()
  88.       changesettings()
  89.       movedir()
  90.       if Version != 2.10
  91.           updatemrn()
  92.        endif
  93.         delfile OldIni
  94.       statmsg "Installation complete!"
  95.    endif
  96.  
  97.    ;Make sure the Temp directory is empty
  98.    delspec(TempDir, "*.*")
  99.    profilerd MailRunIni "MailRun" "MailRunDir" MailRunDir
  100.    MRunMain = makefullname(MailRunDir, "MRUN211A")
  101.    execute MRunMain
  102. endproc
  103.  
  104.  
  105. #comment
  106. *********************************************************************
  107. * 
  108. * DELSPEC()
  109. * 
  110. * Called by main()
  111. * 
  112. * Calls makefullname()
  113. * 
  114. * Deletes specified filespec from specified directory.
  115. * 
  116. *********************************************************************
  117. #endcomment
  118.  
  119. proc delspec
  120. strparm dirname, spec
  121. string filename, filespec
  122.    FileSpec = makefullname(dirname, spec)
  123.    findfirst FileSpec
  124.    while FOUND
  125.       FileName = makefullname(dirname, $FILENAME)
  126.       delfile FileName
  127.       findnext
  128.    endwhile
  129. endproc
  130.  
  131.  
  132. #comment
  133. *********************************************************************
  134. * 
  135. * MAKEINI()
  136. * 
  137. * Called by main()
  138. * 
  139. * Calls welcomebox(), getbbstypes()
  140. * 
  141. * Creates the MAILRUN.INI file and sets default values.
  142. * 
  143. *********************************************************************
  144. #endcomment
  145.  
  146. proc makeini
  147. string StateDLPath, StateULPath, AspectDir, temp, MailRunBak
  148. integer dialogstatus
  149. integer StateWaitCnct, StateCallPause, StateMaxDial
  150.    welcomebox()
  151.    ;Check whether user wishes to continue
  152.    while 1
  153.        dialogstatus = $DIALOG
  154.       switch dialogstatus
  155.           case 1
  156.               ;user chose Cancel
  157.               halt
  158.           endcase
  159.           case 10
  160.               ;user chose OK
  161.               exitwhile
  162.           endcase
  163.       endswitch
  164.    endwhile
  165.  
  166.     ;Save the old MAILRUN.INI file if it exists
  167.  
  168.     if isfile MailRunIni
  169.         OldIni = makefullname(TempDir, "oldini.tmp")
  170.         copyfile MailRunIni OldIni
  171.         MailRunBak = makefullname($WINPATH, "MAILRUN.BAK")
  172.         if isfile MailRunBak
  173.             delfile MailRunBak
  174.         endif
  175.         rename MailRunIni MailRunBak
  176.     endif        
  177.  
  178.    ;Create the file MAILRUN.INI
  179.  
  180.    fopen IniFile MailRunIni CREATE TEXT
  181.    if FAILURE
  182.       errormsg "Unable to create MAILRUN.INI;`r`nscript aborted...."
  183.       halt
  184.    endif 
  185.    fputs IniFile "[MailRun]"
  186.    fputs IniFile "Version=2.11"
  187.    fputs IniFile "MailRun="
  188.    fputs IniFile "MailRunDir="
  189.    fputs IniFile "MailDir="
  190.    fputs IniFile "ReplyDir="
  191.    fputs IniFile "DownloadDir="
  192.    fputs IniFile "UploadDir="
  193.    fputs IniFile "DialAttempts="
  194.    fputs IniFile "DialTimeout="
  195.    fputs IniFile "DialPause="
  196.    fputs IniFile "IdleTimeout="
  197.    fputs IniFile "SavePackets="
  198.    fputs IniFile "LogRun="
  199.    fputs IniFile "AppendLog="
  200.    fputs IniFile "AnsiInLog="
  201.    fputs IniFile "NewfileFilter="
  202.    fputs IniFile "Archiver="
  203.    fputs IniFile "QWKReader="
  204.    fputs IniFile "LogViewer="
  205.    fputs IniFile "DLSortField=0"
  206.    fputs IniFile "ULSortField=0"
  207.    fputs IniFile "DLPurgeLimit=0"
  208.    fputs IniFile "ExecTime=HH:MM:SS"
  209.    fputs IniFile "AutoRun=0"
  210.    fputs IniFile "GoWait=1"
  211.    fputs IniFile "PostRun=1"
  212.    fputs IniFile "RingInterrupt=1"
  213.    fputs IniFile ""
  214.    fputs IniFile "[BBSTypes]"
  215.    fputs IniFile "BBSType_1=PCBoard 14.5"
  216.    fputs IniFile "BBSType_2=PCBoard 15.0"
  217.    fputs IniFile "BBSType_3=WildCat! 3.6"
  218.    fputs IniFile "BBSType_4=Auntie"
  219.    fputs IniFile "BBSType_5=RBBS"
  220.    fputs IniFile ""
  221.    fputs IniFile "[MailDoors]"
  222.    fputs IniFile "MailDoor_1=QMail"
  223.    fputs IniFile "MailDoor_2=MarkMail"
  224.    fputs IniFile "MailDoor_3=Cam-Mail"
  225.    fputs IniFile "MailDoor_4=RoseMail"
  226.    fputs IniFile "MailDoor_5=TomCat"
  227.    fputs IniFile "MailDoor_6=Auntie Mail"
  228.    fputs IniFile "MailDoor_7=KingMail"
  229.    fputs IniFile "MailDoor_8=Mail Manager"
  230.    fputs IniFile ""
  231.    fputs IniFile "[DEFAULT]"
  232.    fputs IniFile "BBSName="
  233.    fputs IniFile "BBSType=PCBoard 14.5"
  234.    fputs IniFile "MailDoorType=KingMail"
  235.    fputs IniFile "Number_1="
  236.    fputs IniFile "Number_2="
  237.    fputs IniFile "Number_3="
  238.    fputs IniFile "UserName="
  239.    fputs IniFile "PWord="
  240.    fputs IniFile "UserResp1="
  241.    fputs IniFile "UserResp2="
  242.    fputs IniFile "XferProt=ZModem"
  243.    fputs IniFile "MailXferProt=ZModem"
  244.    fputs IniFile "QWKArchiver=pkunzip.exe"
  245.    fputs IniFile "LangNumber="
  246.    fputs IniFile "GraphicsOn=1"
  247.    fputs IniFile "LangPrompt=Language"
  248.    fputs IniFile "GraphicsPrompt=graphics (Enter)"
  249.    fputs IniFile "NamePrompt=first name"
  250.    fputs IniFile "PWordPrompt=Password"
  251.    fputs IniFile "UserPrompt1="
  252.    fputs IniFile "UserPrompt2="
  253.    fputs IniFile "ScanPrompt=Last Read"
  254.    fputs IniFile "ViewPrompt=View"
  255.    fputs IniFile "MorePrompt=More?"
  256.    fputs IniFile "FilePrompt="
  257.    fputs IniFile "ContinuePrompt=Continue"
  258.    fputs IniFile "CommandPrompt=Command?"
  259.    fputs IniFile "DLPrompt=Aborts Transfer"
  260.    fputs IniFile "DLUnavPrompt=(Enter)=none"
  261.    fputs IniFile "ULPrompt=Aborts Transfer"
  262.    fputs IniFile "ULDescPrompt=? ("
  263.    fputs IniFile "MsgMenuPrompt="
  264.    fputs IniFile "MailDoor=KM"
  265.    fputs IniFile "MailPrompt=KingMail Command"
  266.    fputs IniFile "ReceiveQWKPrompt=When Done"
  267.    fputs IniFile "MailDLPrompt=Aborts Transfer"
  268.    f